Power Programmierung/Power-Programmierung (Tewi)(1994).iso/magazine/dbms_mag/9104/roti1.apr

Text File | 1991-02-26 | 471b | 20 lines

DECLARE
  widget_code CHAR(10);
BEGIN
  SELECT product_code
  INTO   widget_code
  FROM   product
  WHERE  product_name = :widget_name;
  IF SUBSTR(widget_code,1,1) = 'L' THEN
    :widget_direction := 'LEFT-HANDED';
    GO_FIELD('widget_length');
  ELSIF SUBSTR(widget_code,1,1) = 'R' THEN
    :widget_direction := 'RIGHT-HANDED';
    GO_FIELD('widget_height');
  ELSE
    MESSAGE('Bad widget code');
    GO_FIELD('some_other_field');
  END IF;
END;